home *** CD-ROM | disk | FTP | other *** search
/ Varios Español / Varios Español.iso / DBASE5 / CUA_SAMP.ZIP / PROVEEDS.DFM < prev    next >
Text File  |  1994-10-12  |  12KB  |  447 lines
  1. *......................................................
  2. * C:\DBASE\CUA_SAMP\VENDORS.DFM
  3. *   07/21/94  11:15:59
  4. *......................................................
  5.  
  6. *..............................................................
  7. * NO incluya ningún objeto Browse en este fichero.
  8. *
  9. * Deben inicializarse las variables de memoria de propiedades
  10. * en el fichero .PRG principal que aparece DESPUES de la sentencia
  11. * #include de este fichero.
  12. *..............................................................
  13.  
  14. *.............................................................
  15. * ADVERTENCIA: Utilice los caracteres ~~ para definir caracteres de
  16. * selección, ya que el carácter & puede producir sustituciones de
  17. * macro inesperadas.  Versiones futuras de dBASE para DOS no
  18. * admitirán la sustitución de macros definidas entre series de
  19. * caracteres delimitadas por comillas.
  20. *.............................................................
  21.  
  22. DEFINE FORM VENDORS ;
  23.    PROPERTY ;
  24.       HEIGHT           19,;
  25.       LEFT             8,;
  26.       ONCLOSE          CloseVend,;
  27.       ONGOTFOCUS       Repaint,;
  28.       ONOPEN           OpenVend,;
  29.       TEXT             "PROVEEDORES",;
  30.       TOP              1,;
  31.       WIDTH            70
  32.  
  33. VENDORS.ACTION           = .F.
  34. VENDORS.CLAYTYPE         = "L"           && Código para el tipo de formato de campos
  35. VENDORS.CLOSEDATA        = .F.           && Ejecuta un CLOSE DATABASE y luego abre los ficheros
  36. VENDORS.CURRMAST         = "PROVEEDS"    && Nombre del alias maestro de la ficha
  37. VENDORS.DISPMODE         = "VGA25"       && Modo de visualización por omisión
  38. VENDORS.MODALFORM        = .F.           && .T. ReadModal(), .F. Open()
  39. VENDORS.NFLDPLC          = 13            && Nº del último campo situado en la ficha
  40. VENDORS.NHEIGHT          = 19            && Altura por omisión de la ficha para el modo de visualización
  41. VENDORS.NLEFT            = 14            && Siguiente columna donde situar un objeto
  42. VENDORS.NOBJCTR          = 15            && Siguiente número para el nombre de objeto
  43. VENDORS.NTOP             = 32            && Siguiente fila donde situar un objeto
  44. VENDORS.SETDISP          = .T.           && .T. modifica el modo de visualización y .F. lo mantiene
  45. *...........................................................
  46.  
  47.  
  48.  
  49. *---------------------------------------------------------------------
  50. *-- Define la estructura del fichero. Esta técnica utiliza un objeto MenuBar
  51. *-- con opciones de menú para cada DBF que la ficha utiliza como lista vincu-
  52. *-- lada. El MenuBar está asociado a la ficha como propiedad personalizada.
  53. *-- Así la lista de ficheros no interfiere con otras variables de memoria.
  54. *---------------------------------------------------------------------
  55. DEFINE MENUBAR FileList
  56. VENDORS.FileList = FileList
  57. RELEASE FileList
  58.  
  59. *-----------------------------------------------------------------
  60. *-- Si ya está abierta la base de datos maestra, toma el número de registro,
  61. *-- cierra las bases de datos y vuelve a abrir sobre el número de registro.
  62. *-----------------------------------------------------------------
  63. SELECT 1
  64. PRIVATE nVENDORS , fVENDORS
  65. IF FileRoot( DBF() ) == 'PROVEEDS' .AND. .NOT. EOF()
  66.     nVENDORS = RECNO()
  67.     fVENDORS = SET( 'FILTER' )
  68. ELSE
  69.     nVENDORS = 0
  70.     fVENDORS = ''
  71. ENDIF
  72.  
  73. *--------------------------------------------------------------------
  74. *-- Asigna .F. a la propiedad .CloseData para evitar el mandato CLOSE
  75. *-- DATABASE. Esto implica que debe asegurarse que los ficheros que abre
  76. *-- este .DFM no están ya abiertos.
  77. *--------------------------------------------------------------------
  78. IF TYPE('VENDORS.CloseData') = 'L' .AND. VENDORS.CloseData
  79.     CLOSE DATABASE
  80. ELSE
  81.     IF TYPE('VENDORS.CloseData') # 'L'
  82.         CLOSE DATABASE
  83.     ELSE
  84.         SELECT SELECT()
  85.     ENDIF
  86. ENDIF
  87.  
  88. USE PROVEEDS.DBF ALIAS PROVEEDS
  89. IF nVENDORS > 0
  90.     GO nVENDORS
  91.     IF .NOT. ISBLANK( fVENDORS )
  92.         SET FILTER TO &fVENDORS
  93.     ENDIF
  94. ENDIF
  95.  
  96. *------------------------------------------------------
  97. *-- Define el menú que representa la base de datos maestra
  98. *------------------------------------------------------
  99. DEFINE MENU File1 OF VENDORS.FileList;
  100.     PROPERTY ;
  101.         Text        DBF() ,;
  102.         StatusMessage   [Maestro];
  103.     CUSTOM ;
  104.         FileAlias   ALIAS() ,;
  105.         ErrorDBF    .F.
  106.  
  107. DEFINE RECTANGLE RCNAME4 OF M->VENDORS;
  108.    PROPERTY ;
  109.       HEIGHT           7,;
  110.       LEFT             2,;
  111.       TOP              0,;
  112.       WIDTH            63
  113.  
  114. VENDORS.RCNAME4.BorderStyle          = 2
  115.  
  116.  
  117. DEFINE RECTANGLE RCNAME5 OF M->VENDORS;
  118.    PROPERTY ;
  119.       HEIGHT           7,;
  120.       LEFT             2,;
  121.       TOP              7,;
  122.       WIDTH            63
  123.  
  124. VENDORS.RCNAME5.BorderStyle          = 2
  125.  
  126.  
  127. DEFINE ENTRYFIELD VENDOR_001 OF M->VENDORS;
  128.    PROPERTY ;
  129.       DATALINK         "PROVEEDS->COD_PROVE",;
  130.       LEFT             18,;
  131.       PICTURE          "XXXX",;
  132.       TOP              1,;
  133.       VALID            UniqKey,;
  134.       VALIDERRORMSG    "Introduzca un valor que no exista en el fichero.",;
  135.       WIDTH            9
  136.  
  137. VENDORS.VENDOR_001.KEYTAG       = "COD_PROVE"
  138.  
  139.  
  140. *--------------------------------------------
  141. *-- Define la rutina Valid para la clave primaria
  142. *--------------------------------------------
  143. VENDORS.VENDOR_001.Valid = "UniqKey"
  144.  
  145. DEFINE ENTRYFIELD VENDOR002 OF M->VENDORS;
  146.    PROPERTY ;
  147.       DATALINK         "PROVEEDS->PROVEEDOR",;
  148.       LEFT             18,;
  149.       PICTURE          "!!!!!!!!!!!!!!!!!!!!!!!!!!!!",;
  150.       TOP              2,;
  151.       WIDTH            30
  152.  
  153.  
  154.  
  155. DEFINE ENTRYFIELD ADDRESS003 OF M->VENDORS;
  156.    PROPERTY ;
  157.       DATALINK         "PROVEEDS->DIRECCION1",;
  158.       LEFT             18,;
  159.       PICTURE          "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",;
  160.       TOP              3,;
  161.       WIDTH            30
  162.  
  163.  
  164.  
  165. DEFINE ENTRYFIELD ADDRESS004 OF M->VENDORS;
  166.    PROPERTY ;
  167.       DATALINK         "PROVEEDS->DIRECCION2",;
  168.       LEFT             18,;
  169.       PICTURE          "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",;
  170.       TOP              4,;
  171.       WIDTH            30
  172.  
  173.  
  174.  
  175. DEFINE ENTRYFIELD CITY005 OF M->VENDORS;
  176.    PROPERTY ;
  177.       DATALINK         "PROVEEDS->CIUDAD",;
  178.       LEFT             18,;
  179.       PICTURE          "!XXXXXXXXXXXXXXXXXXX",;
  180.       TOP              5,;
  181.       WIDTH            20
  182.  
  183.  
  184.  
  185. DEFINE ENTRYFIELD STATE006 OF M->VENDORS;
  186.    PROPERTY ;
  187.       DATALINK         "PROVEEDS->PROVINCIA",;
  188.       LEFT             45,;
  189.       PICTURE          "!!",;
  190.       TOP              5,;
  191.       WIDTH            2
  192.  
  193.  
  194.  
  195. DEFINE ENTRYFIELD ZIP007 OF M->VENDORS;
  196.    PROPERTY ;
  197.       DATALINK         "PROVEEDS->COD_POST",;
  198.       LEFT             53,;
  199.       PICTURE          "XXXXXXXXXX",;
  200.       TOP              5,;
  201.       WIDTH            10
  202.  
  203.  
  204.  
  205. DEFINE ENTRYFIELD CONTACT009 OF M->VENDORS;
  206.    PROPERTY ;
  207.       DATALINK         "PROVEEDS->CONTACTO",;
  208.       LEFT             15,;
  209.       PICTURE          "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",;
  210.       TOP              8,;
  211.       WIDTH            30
  212.  
  213.  
  214.  
  215. DEFINE ENTRYFIELD PHONE008 OF M->VENDORS;
  216.    PROPERTY ;
  217.       DATALINK         "PROVEEDS->TELEFONO",;
  218.       LEFT             15,;
  219.       PICTURE          "(999)999-9999",;
  220.       TOP              9
  221.  
  222.  
  223.  
  224. DEFINE ENTRYFIELD PHONE_E010 OF M->VENDORS;
  225.    PROPERTY ;
  226.       DATALINK         "PROVEEDS->EXT_TEL",;
  227.       LEFT             41,;
  228.       PICTURE          "9999",;
  229.       TOP              9,;
  230.       WIDTH            4
  231.  
  232.  
  233.  
  234. DEFINE RADIOBUTTON RDNAME1 OF M->VENDORS;
  235.    PROPERTY ;
  236.       GROUP            .T.,;
  237.       LEFT             11,;
  238.       TEXT             "NETO ~1~5",;
  239.       TOP              11
  240.  
  241. VENDORS.RDNAME1.ColorHighlight       = "R/W"
  242. VENDORS.RDNAME1.ColorNormal          = "N/W"
  243. VENDORS.RDNAME1.ColorPickNormal      = "N/W"
  244.  
  245.  
  246. VENDORS.RDNAME1.WIDTH = 12
  247.  
  248. DEFINE RADIOBUTTON RDNAME2 OF M->VENDORS;
  249.    PROPERTY ;
  250.       GROUP            .F.,;
  251.       LEFT             11,;
  252.       TEXT             "NETO ~3~0",;
  253.       TOP              12,;
  254.       VALUE            .F.
  255.  
  256. VENDORS.RDNAME2.ColorHighlight       = "R/W"
  257. VENDORS.RDNAME2.ColorNormal          = "N/W"
  258. VENDORS.RDNAME2.ColorPickNormal      = "N/W"
  259.  
  260.  
  261. VENDORS.RDNAME2.WIDTH = 12
  262.  
  263. DEFINE SPINBOX SBNAME3 OF M->VENDORS;
  264.    PROPERTY ;
  265.       DATALINK         "DESCUENTO",;
  266.       LEFT             34,;
  267.       PICTURE          "999",;
  268.       RANGEMAX         30,;
  269.       TOP              11,;
  270.       WIDTH            6
  271.  
  272.  
  273.  
  274. DEFINE PUSHBUTTON PBNAME8 OF M->VENDORS;
  275.    PROPERTY ;
  276.       LEFT             0,;
  277.       ONCLICK          Add_new,;
  278.       TEXT             "~A~ñadir",;
  279.       TOP              15,;
  280.       WIDTH            10
  281.  
  282.  
  283.  
  284. DEFINE PUSHBUTTON PBNAME9 OF M->VENDORS;
  285.    PROPERTY ;
  286.       LEFT             10,;
  287.       ONCLICK          DelIt,;
  288.       TEXT             "~E~liminar",;
  289.       TOP              15,;
  290.       WIDTH            12
  291.  
  292.  
  293.  
  294. DEFINE PUSHBUTTON PBNAME13 OF M->VENDORS;
  295.    PROPERTY ;
  296.       LEFT             21,;
  297.       ONCLICK          SKIPHAND,;
  298.       TEXT             "~S~iguiente",;
  299.       TOP              15,;
  300.       WIDTH            13
  301.  
  302. VENDORS.PBNAME13.Procfile            = "SKIPHAND.PRG"
  303.  
  304.  
  305. DEFINE PUSHBUTTON PBNAME14 OF M->VENDORS;
  306.    PROPERTY ;
  307.       LEFT             34,;
  308.       ONCLICK          PREVHAND,;
  309.       TEXT             "A~n~terior",;
  310.       TOP              15,;
  311.       WIDTH            12
  312.  
  313. VENDORS.PBNAME14.Procfile            = "PREVHAND.PRG"
  314.  
  315.  
  316. DEFINE PUSHBUTTON PBNAME10 OF M->VENDORS;
  317.    PROPERTY ;
  318.       LEFT             46,;
  319.       ONCLICK          PrintMe,;
  320.       TEXT             "~I~mprimir",;
  321.       TOP              15,;
  322.       WIDTH            12
  323.  
  324.  
  325.  
  326. DEFINE PUSHBUTTON PBNAME11 OF M->VENDORS;
  327.    PROPERTY ;
  328.       LEFT             58,;
  329.       ONCLICK          CloseMe,;
  330.       TEXT             "Sa~l~ir",;
  331.       TOP              15,;
  332.       WIDTH            9
  333.  
  334.  
  335.  
  336. DEFINE TEXT CFDNAME1 OF M->VENDORS;
  337.    PROPERTY ;
  338.       LEFT             4,;
  339.       TEXT             "PROVEEDOR Nº:",;
  340.       TOP              1,;
  341.       WIDTH            13
  342.  
  343.  
  344.  
  345. DEFINE TEXT CFDNAME2 OF M->VENDORS;
  346.    PROPERTY ;
  347.       LEFT             10,;
  348.       TEXT             "NOMBRE:",;
  349.       TOP              2,;
  350.       WIDTH            7
  351.  
  352.  
  353.  
  354. DEFINE TEXT CFDNAME3 OF M->VENDORS;
  355.    PROPERTY ;
  356.       LEFT             7,;
  357.       TEXT             "DIRECCION:",;
  358.       TOP              3,;
  359.       WIDTH            10
  360.  
  361.  
  362.  
  363. DEFINE TEXT CFDNAME5 OF M->VENDORS;
  364.    PROPERTY ;
  365.       LEFT             10,;
  366.       TEXT             "CIUDAD:",;
  367.       TOP              5,;
  368.       WIDTH            7
  369.  
  370.  
  371.  
  372. DEFINE TEXT CFDNAME6 OF M->VENDORS;
  373.    PROPERTY ;
  374.       LEFT             39,;
  375.       TEXT             "PROV.:",;
  376.       TOP              5,;
  377.       WIDTH            6
  378.  
  379.  
  380.  
  381. DEFINE TEXT CFDNAME7 OF M->VENDORS;
  382.    PROPERTY ;
  383.       LEFT             48,;
  384.       TEXT             "C.P.:",;
  385.       TOP              5,;
  386.       WIDTH            5
  387.  
  388.  
  389.  
  390. DEFINE TEXT CFDNAME8 OF M->VENDORS;
  391.    PROPERTY ;
  392.       LEFT             4,;
  393.       TEXT             "TELEFONO:",;
  394.       TOP              9,;
  395.       WIDTH            9
  396.  
  397.  
  398.  
  399. DEFINE TEXT CFDNAME9 OF M->VENDORS;
  400.    PROPERTY ;
  401.       LEFT             4,;
  402.       TEXT             "CONTACTO:",;
  403.       TOP              8,;
  404.       WIDTH            9
  405.  
  406.  
  407.  
  408. DEFINE TEXT CFDNAME10 OF M->VENDORS;
  409.    PROPERTY ;
  410.       LEFT             31,;
  411.       TEXT             "EXTENSION:",;
  412.       TOP              9,;
  413.       WIDTH            10
  414.  
  415.  
  416.  
  417. DEFINE TEXT CFDNAME11 OF M->VENDORS;
  418.    PROPERTY ;
  419.       LEFT             5,;
  420.       TEXT             "F. PAGO:",;
  421.       TOP              10,;
  422.       WIDTH            8
  423.  
  424. VENDORS.CFDNAME11.ColorNormal        = "B/W"
  425.  
  426.  
  427. DEFINE TEXT CFDNAME12 OF M->VENDORS;
  428.    PROPERTY ;
  429.       LEFT             31,;
  430.       TEXT             "DESCUENTO:",;
  431.       TOP              10,;
  432.       WIDTH            10
  433.  
  434. VENDORS.CFDNAME12.ColorNormal        = "B/W"
  435.  
  436.  
  437. DEFINE TEXT TXNAME15 OF M->VENDORS;
  438.    PROPERTY ;
  439.       LEFT             53,;
  440.       TEXT             "",;
  441.       TOP              1,;
  442.       WIDTH            8
  443.  
  444. VENDORS.TXNAME15.ColorNormal         = "R/W"
  445.  
  446.  
  447.